home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / bitary.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-04-16  |  1.5 KB  |  92 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 18 "bitary.d"
  17. #include "array1.h" 
  18.  
  19. #define    CLASS    BitArray_c
  20. #define    ivType    BitArray_iv_t
  21.  
  22. #include "generics.h"
  23.  
  24. object    BitArray_c;
  25.  
  26.  
  27.  
  28. #line 24 "bitary.d"
  29. cvmeth objrtn BitArray_cvm_vNew(object self, va_list _rest_)
  30. { 
  31.     unsigned rank = va_arg(_rest_, unsigned);
  32.  
  33. #line 26 "bitary.d"
  34.     static gNewArray_t cnew = NULL; 
  35.     MAKE_REST(rank); 
  36.  
  37.     if (!cnew) 
  38.         cnew = cmcPointer(Array, gNewArray); 
  39.     return cnew(self, AT_BIT, rank, _rest_); 
  40. } 
  41.  
  42. #line 43 "bitary.c"
  43.  
  44. static    objrtn    BitArray_cfm_vNew(object self, ...)
  45. {
  46.     va_list    _rest_;
  47.     va_start(_rest_, self);
  48.     return BitArray_cvm_vNew(self, _rest_);
  49. }
  50.  
  51.  
  52.  
  53. #line 54 "bitary.c"
  54.  
  55. objrtn    BitArray_initialize(void)
  56. {
  57.     static  CRITICALSECTION  cs;
  58.     static  int volatile once = 0;
  59.  
  60.     ENTERCRITICALSECTION(_CI_CS_);
  61.     if (!once) {
  62.         INITIALIZECRITICALSECTION(cs);
  63.         once = 1;
  64.     }
  65.     LEAVECRITICALSECTION(_CI_CS_);
  66.  
  67.     ENTERCRITICALSECTION(cs);
  68.  
  69.     if (BitArray_c) {
  70.         LEAVECRITICALSECTION(cs);
  71.         return BitArray_c;
  72.     }
  73.     INHIBIT_THREADER;
  74.     Array_initialize();
  75.     if (BitArray_c)  {
  76.         ENABLE_THREADER;
  77.         LEAVECRITICALSECTION(cs);
  78.         return BitArray_c;
  79.     }
  80.     BitArray_c = gNewClass(Class, "BitArray", 0, 0, Array, END);
  81.     cvMethodFor(BitArray, vNew, BitArray_cvm_vNew, BitArray_cfm_vNew);
  82.  
  83.     ENABLE_THREADER;
  84.  
  85.     LEAVECRITICALSECTION(cs);
  86.  
  87.     return BitArray_c;
  88. }
  89.  
  90.  
  91.  
  92.